home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / barricade.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  56 lines
  1. 99 POKE650,100                                                              
  2. 100 REM (C) PET BENELUX
  3. 110 REM     EXCHANGE
  4. 120 REM     NETHERLANDS
  5. 121 REM**TRANSLATED FROM THE DUTCH,     REVISED, UPGRADED & ADAPTED TO THE
  6. 122 REM**COMMODORE 64 BY ROGER D. BURGE,#2667, TORONTO PET USERS GROUP
  7. 123 REM**CANADA
  8. 130 VR=1024 :REM VIDEO RAM
  9. 140 KR=55296:CC=KR-VR
  10. 150 A3=506
  11. 160 POKE53280,2:POKE53281,10
  12. 170 PRINT"[147]***** BARRICADE *****
  13. 180 [153]"STOP   YOU HAVE 5 BALLS"
  14. 190 [153]"YOU MUST STOP THEM"
  15. 200 [153]"    FROM MOVING BY"
  16. 210 [153]"    BLOCKING THEM."
  17. 220 [153]"USE ANY KEY TO CREATE":[153]"        A BLOCK"
  18. 230 [153]"RIGHT BEHIND THE BALL"
  19. 240 [153]"  AND TRY TO TRAP IT"
  20. 260 [153]"PRESS ANY KEY TO START"
  21. 270 [161]A$:[139]A$[178]""[167]270
  22. 280 A2[178]0:E[178]102:F[178]81:G[178]32:I[178]1:H[178]40:J[178]20
  23. 290 [151]53281,15:[151]53280,.
  24. 300 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  25. 310 [129]II[178]1[164]23:[153]"SPC(                                      SPC(";:[130]
  26. 320 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDSAVESPC("
  27. 330 [129]SS[178]1[164]10:[161]A$:[130]:N[178]VR[170]97:C[178]0
  28. 340 P[178]I:[141]430:P[178]H:[141]430
  29. 350 P[178][171]I:[141]430:P[178][171]H:[141]430
  30. 360 [139]X[178]N[137]380
  31. 370 X[178]N:[137]340
  32. 380 P[178][171]I:[141]430:P[178]H:[141]430
  33. 390 P[178]I:[141]430:P[178][171]H:[141]430
  34. 400 [139]Y[177]J[137]490
  35. 410 [139]X[178]N[137]340
  36. 420 X[178]N:[137]380
  37. 430 N[178]N[170]P:A[178][194](N)
  38. 440 [129]U[178]1[164]25:[130]
  39. 450 [139]A[178]E[167]N[178]N[171]P:Y[178]Y[170]I:[142]
  40. 460 [151](N),F:[151]KR[170](N[171]VR),4:[151](N[171]P),G:Y[178]I:[161]B$
  41. 470 [139]B$[179][177]""[167][151](N[171]P),E:[151]KR[170](N[171]VR)[171]P,6:C[178]C[170]I
  42. 480 [137]430
  43. 490 N[178]VR[170][181](([187](1))[172]505):N1[178][194](N)
  44. 500 [139]N1[178]E[137]490
  45. 510 [139]N1[178]81[137]490
  46. 520 A2[178]A2[170]1:[139]A2[179]5[167][129]P[178]0[164]9:[161]Y$:[130]P:[137]340
  47. 530 [139]A3[177]C[167]A3[178]C
  48. 540 [151]53281,11:[153]"LOAD**** BARRICADE ****":[153]"BEST SCORE IS";A3
  49. 550 [153]"YOUR SCORE IS";C
  50. 560 [153]"PLAY AGAIN?"
  51. 570 [129]I[178]1[164]50:[161]A$:[130]
  52. 580 [161]A$:[139]A$[178]""[167]580
  53. 590 [139]A$[178]"Y"[167]160
  54. 591 [139]A$[178]"N"[167][151]650,.:[153]"LOAD":[128]
  55. 592 [137]580
  56.